CICA 1993 April

home *** CD-ROM | disk | FTP | other *** search

/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / toolbook / toolbox / toolbox.tbk (.txt) < prev

Wrap

Asymetrix ToolBook File | 1992-10-22 | 442KB | 4,295 lines

-- Ramp creation program -- Written HJeffrey Howard -- 1/20/92 4rflag, ramps, color1, color2, coords1, coords2, rtype, itext "startcolor" "instructions" "endcolor" "Rectangle" rbounds & "," & "Circle" ((x*x) + (y*y)) "Select lower corner." 0outer circle." buttonUp buttonUp startcolor instructions endcolor instructions instructions 0,100,0 0,0,0 background Rectangle bounds Circle bounds foreground Rectangle instructions Select lower right corner. Circle instructions Select outer bounds of circle. rbounds rflag ramps color1 color2 coords1 coords2 rtype itext ?,@R@x@ 4rflag "instructions" "Select color." buttonUp buttonUp instructions Select end color. rflag End color 4rflag "instructions" "Select color." buttonUp buttonUp instructions Select start color. rflag Start color 4rflag, rtype, color1, color2, coords1, coords2 "ramps" "startcolor" "endcolor" buttonUp buttonUp background ramps clear foreground startcolor endcolor background group ramps foreground 0,100,0 0,0,0 rflag rtype color1 color2 coords1 coords2 Make ramp clear 4coords1, coords2 "ramps" buttonUp buttonUp background ramps clear foreground coords1 coords2 Clear ramp rectangle 4rflag, rtype B"circle" "rectType" buttonUp buttonUp rectangle circle rectangle rectType rflag rtype press Rectangle circle 4rtype "circle" "rectType" buttonUp buttonUp circle rectangle circle rectType rtype press false Circle startcolor 4rflag "instructions" "Select color." buttonUp buttonUp instructions Select start color. rflag endcolor 4rflag "instructions" "Select color." buttonUp buttonUp instructions Select end color. rflag rectType "rectType" buttondown buttondown rectType 4recType "top2bottom" buttonUp buttonUp top2bottom recType 4recType "left2right" buttonUp buttonUp left2right recType horizontal 4recType "inouthoriz" buttonUp buttonUp inouthoriz recType verticle 4recType "inoutvert" buttonUp buttonUp inoutvert recType 4rflag, coords1, coords2 psize "0,0" "& "," & t & "," & rbounds buttonUp buttonUp select bounds background foreground rbounds psize rflag coords1 coords2 press select 4rflag, rtype "instructions" "Select upper Scorner "circle" buttonUp buttonUp select rectangle instructions Select upper left corner of rectangle. circle instructions Select center of circle. rflag rtype press Select 4ramps ("How many buttonUp buttonUp How many ramps? ramps ramps No. of Ramps Close Main Menu buttonUp buttonUp "Are you sure that want Toolbox?" f"Yes" buttonUp buttonUp Are you sure that you want to exit Toolbox? About %border scrolling This ramp utility lets users create dynamic effects by ramping colors through an area of the screen. The colors are evenly spaced through the ramps from the start color to the end color. The ramps can be circular or rectanglular. The circular ramps are created from outside to inside. The rectangular ramps can be from top to bottom, from left to right, or from center to the edges. Instructions P9scrolled 1) Select "Make ramp" to have the ramp created for you in the background. Each new "Make ramp" will erase the previous ramp created. To save a ramp, switch to author mode, switch to background, and copy the group "ramps" to another application. 2) Select "Page" for full page or "select" to select an area of the screen. 3) Select "Circle" or "Rectangle" for the type of ramp. With rectangular ramps, the direction of the ramp may also be selected. 4) Select "No. of Ramps" to change the number and size of each color in the ramp. Larger numbers will create smoother ramps, but will take longer to create. 5) Select the start and end colors from the color palette on the screen. 6) The current bounds and number of ramps are displayed in the status window. Bounds bounds 0,0,9504,67685,35250 Ramps ramps --Menu Generator --Code necessary cSetup below. Text which constructs --the "menulister" a part "floppy". /can be --modified. --Placement these handlers /levels 4hMenu linkDLL user gGetMenu( gCreateMenu () DestroyMenu ( DeleteMenu ( gSetMenu ( gGetSubMenu ( GetMenuString ( GetMenuItemCount ( gGetWindowWord ( AppendMenu ( DrawMenuBar ( gGetParent ( translateWindowMessage 4273 WM_COMMAND 4279 WM_INITMENUPOPUP --sets up menuSetup : hWnd, msg, wParam 4hPopupMenu >, lpLo, lpHi ;,menustring U < 2000 menuString &), 0 ) " && stripAmp val ~( "&", ) > 0 ) ~( "&", --Handler , hSubMenu deleteMenu ( , i - 1 ), 0, 1024 ) destroyMenu ( menuList sourceText "menuLister" menuText tabCount ( nextMenuText Bi + 1 nextTC stripTabs ( i + 2 > TC hNewMenu , 16, <= TC flags -- MF_SEPARATOR ?, i + 2000, TC - 1 i - 1 NITMENUPOPUP enterBook leaveBook WM_COMMAND WM_INITMENUPOPUP menuSetup ipAmp tabCount stripAmp stripTabs enterBook GetMenu CreateMenu DestroyMenu DeleteMenu SetMenu GetSubMenu GetMenuString GetMenuItemCount GetWindowWord AppendMenu DrawMenuBar GetParent WM_COMMAND WM_INITMENUPOPUP menuSetup hMenu WM_INITMENUPOPUP hPopupMenu wParam leaveBook WM_COMMAND menuString menuString menuString GetMenuString menuString hPopupMenu menustring wParam stripAmp menuSetup GetMenuItemCount GetSubMenu deleteMenu destroyMenu CreateMenu menuLister tabCount tabCount stripTabs tabCount stripTabs stripTabs CreateMenu stripTabs AppendMenu stripTabs stripTabs stripTabs AppendMenu SetMenu flags hNewMenu j:to1 nextTC nextMenuText menuText sourceText menuList hMenu hSubMenu tabCount stripTabs TOOLBOX FOR TOOLBOOK Redmon Group ,Tool: Ramp --Programming H: Jeffrey S. Howard --Designs H: John Veronica Cruz Daniel Lazenby --Last Modified Date : February 2, 1992 4ramps, color1, color2, coords1, coords2, rtype, recType, itext "instructions" sysdrawdirect "startcolor" "endcolor" "0,0" psize & "," & & "," & "top2bottom" rflag Field "about" X"tbkwin.dll" RGBtoHLS( HLStoRGB( B"Clear" h,l,s) h,l,s) "Rectangle" incs (y2-y1)/ "Left2right" (x2-x1)/ "inouthoriz" (x2-x1)/ startx ((x2-x1)/2) + x1 "inoutvert" (y2-y1)/ starty ((y2-y1)/2) + y1 "Circle" (y2-y1)/ rinc (r2-r1)/ ginc (g2-g1)/ binc (b2-b1)/ x1,y1 x2,y2 x1,y1 x2,y2 r1 < 0 r1 > 255 g1 < 0 g1 > 255 b1 < 0 b1 > 255 r1,g1,b1) savex x2 - x1,y1 x2,y2 savey y2 - x1,y1 x2,y2 x1,y1 x2,y2 x1 + y1 + x2 - y2 - x1,y1 x2,y2 rbounds & "," & ((x*x) + (y*y)) "Select lower corner." 1outer circle." leavepage enterpage buttonUp enterpage instructions ramps startcolor 240,50,100 startcolor endcolor 0,0,0 endcolor bounds rectangle top2bottom about tbkwin.dll RGBtoHLS HLStoRGB rflag psize ramps color1 color2 coords1 coords2 rtype recType itext leavepage tbkwin.dll instructions buttonUp Clear itext HLStoRGB HLStoRGB Rectangle top2bottom Left2right inouthoriz inoutvert Circle Rectangle top2bottom Left2right inouthoriz inoutvert Circle RGBtoHLS Rectangle top2bottom Left2right inouthoriz inoutvert Circle savey savex starty startx ramps color1 color2 coords1 coords2 rtype recType buttonUp startcolor instructions endcolor instructions instructions 0,100,0 0,0,0 background Rectangle bounds Circle bounds foreground Rectangle instructions Select lower right corner. Circle instructions Select outer bounds of circle. rbounds rflag ramps color1 color2 coords1 coords2 rtype itext Animator Timer ColorMextrix1 ColorMetrix1 TOOLBOX FOR TOOLBOOK Redmon Group ,Tool: PageLook --Programming H: Jeffrey S. Howard John --Designs H: Veronica Cruz Daniel Lazenby --Last Modified Date : October 20, 1992 --Initializes setup 4returnCnt sysfillColor sysDrawDirect J"instructions" J"about" B"pageLook" closePageLook 4tabCnt,tab_level ZitemCnt,i,targ " && 0,1128 TO 3648,5403 excludeTab "objbackground" drawDirect 81,1191 1173,1491 "Properties" "ms sans serif" "objproperties" propertyCheck; Paste nthe H1200, 0 "Script" "objscript" editScripts; H1200, 0 "Close" "objclose" 54,1815 3570,5334 "PageObjects" fieldType singleSelect 72,72,72 selectedTextLines 54,1494 3594,1815 72, 0, 0 noWrap "PropertyCheck" searching. Please Wait." "pageObjects" ) - 6 number_of_items putname( --puts lists ? obj, settab o & " " & x <> " o(34) o(34) group_Items x, group_items) --Determines how many tabs CRLF ct <= --Edits selectedTExtLines --Displays key 4propertyChk, ,originalObjects =" & K" & p" & {" & i" & O" & a" & =" & K" & p" & {" & i" & O" & a" & =" & K" & p" & {" & a" & =" & } " & K" & p" & {" & i" & O" & a" & k& "baseLines" & u" & =" & k& "drawTextDirect" & K" & p" & {" & k& "singleLine" & i" & O" & a" & =" & K" & p" & {" & i" & O" & a" & u" & =" & K" & Z" & K" & p" & {" & i" & O" & a" & ) > 2 <> " o(34) o(34) " && && " " && && " 9& y 81,1191 1173,1491 "Modify" B"modify" modRequest; H1200,0 "Return" returnObjects; modProps "The modification within requires further development." --Modifies 4modTarg,currentTarg,propertychk,newTarg, ) > 2 <> " o(34) o(34) ("Change the" && && " " && && " o(34) & o(34) " && && " " && && " " && revise your " && && " wordX 9& newtarg SysSuspend --Returns "propertycheck" " && ) - 6 --Closes "Are you sure that want f"Yes" leavePage editScripts propertyCheck enterPage modProps pageLook modRequest returnObjects settab closePageLook putname enterPage PageLook 0,100,0 0,0,0 instructions instructions about about returnCnt leavePage pageLook AclosePageLook pageLook pageLook 0,100,0 0,0,0 objbackground Properties ms sans serif objproperties objproperties to handle buttonUp;send propertyCheck;end Paste Script objscript to handle buttonUp;send editScripts;end Paste Close objclose to handle buttonUp;send closePageLook;end PageObjects ms sans serif to handle buttonUp;put selectedTextLines of self into i;put textLine i of text of self into text of field propertyCheck;end ms sans serif PropertyCheck PageLook is searching. Please Wait. pageObjects pageObjects putname number_of_items itemCnt tabCnt tab_level putname settab pageObjects settab pageObjects pageObjects group pageObjects group_items putname group_Items tab_level itemCnt settab pageObjects pageObjects tab_level editScripts pageObjects pageObjects propertyCheck pageObjects pageObjects field PageObjects pageObjects propertyCheck propertyCheck irregularPolygon bounds drawDirect fillColor idNumber layer lineStyle object parent pattern position strokeColor transparent uniqueName vertices visible propertyCheck rectangle bounds drawDirect fillColor idNumber layer lineStyle object parent pattern position strokeColor transparent uniqueName vertices visible propertyCheck group bounds drawDirect idNumber layer object parent position uniqueName vertices visible propertyCheck ellipse bounds drawDirect fillColor idNumber layer lineStyle object parent pattern position strokeColor transparent uniqueName vertices visible propertyCheck field activated baseLines borderStyle bounds drawDirect drawTextDirect fieldType fillColor fontFace fontSize fontStyle idNumber indents layer object parent position scroll selectedTExtLines singleLine spacing strokeColor tabSpacing tabType textAlignment textOverflow transparent uniqueName vertices visible propertyCheck bounds drawDirect fillColor idNumber layer lineStyle object parent pattern position strokeColor transparent uniqueName vertices visible propertyCheck button borderStyle bounds caption checked drawDirect excludeTab fillColor fontFace fontSize fontStyle highlight idNumber invert layer object parent position strokeColor transparent uniqueName vertices visible pageObjects pageObjects into y pageObjects pageObjects pageObjects pageObjects Modify ms sans serif Modify modify Paste to handle buttonUp;send modRequest;end modify Return Return to handle buttonUp;send returnObjects;end pageObjects propertyChk originalObjects modProps The modification of Properties within PageLook requires further development. modRequest pageObjects propertyCheck propertyChk propertyChk propertyChk propertyChk propertyChk propertyChk pageObjects pageObjects pageObjects Change the propertyChk propertyChk Please revise your modification. after textLine x of text of field pageObjects propertyChk propertyCheck propertyCheck propertyCheck clear newtarg propertyChk propertyCheck propertyCheck wordX pageObjects modTarg currentTarg propertychk newTarg returnCnt returnObjects pageObjects pageObjects pageObjects modify return clear pageObjects propertycheck to handle buttonUp;put selectedTextLines of self into i;put textLine i of text of self into text of field propertyCheck;end pageObjects pageObjects putname tab_level number_of_items originalObjects returnCnt closePageLook Are you sure that you want to close PageLook? objscript objbackground PageObjects objclose modify return PropertyCheck clear pageLook objproperties 4hMenu, hSubMenu 4newMenuCount "menuList" c" & i && "& subMenu" & i submenu) subtlc subTlc --Checks Menus have been started "No menus .created." setMenu ( , 0 ) GetMenuItemCount ( deleteMenu ( GetSubMenu ( i - 1 ), 0, 1024 ) destroyMenu ( CreateMenu () sourceText menuText tabCount ( nextMenuText Bi + 1 nextTC stripTabs ( i + 2 > TC hNewMenu AppendMenu ( , 16, <= TC flags -- MF_SEPARATOR >, i + 2000, TC - 1 SetMenu ( i - 1 buttonUp tabCount stripTabs buttonUp menuList put text of field menu & crlf after text of field menuList field subMenu submenu subTlc submenu menuList menuList menuList No menus have been created. GetMenuItemCount GetSubMenu deleteMenu destroyMenu CreateMenu menuList tabCount tabCount stripTabs tabCount stripTabs stripTabs CreateMenu stripTabs AppendMenu stripTabs stripTabs stripTabs AppendMenu SetMenu flags hNewMenu j:to1 nextTC nextMenuText menuText sourceText menuList s:to1 subtlc subMenu newMenuCount hMenu hSubMenu tabCount stripTabs Intro :PHYSSIZE Intro enterPage enterPage Intro WrapCounter Colormetrix2 Intro TOOLBOX FOR TOOLBOOK Redmon Group ,Tool: ColorMetrix --Programming H: Jeffrey S. Howard --Designs H: John Veronica Cruz Daniel Lazenby --Last Modified Date : February 2, 1992 4ret, r, g, b, zoom, fs, hls, shls, bhls, fhls, cont RGBtoHLS(r,g,b) 79.1875 71.6875 79.3125 "stroke" "test" setAppColors setfsbutton B"L32" 4fs, rgb, "outline" tb - 18), ( tb - 15) 79.1875 71.6875 79.3125 HLStoRGB( setnums setoutline inc, r, g, b % = 64 / 64) * 64) / 64) * 64) / 64) * 64) ) >= 255 + (2 * )) > 256 ) > 256 - (4 * inc) blocknum - (3 * - (2 * r < 0 r < 0 rgb) >= 255 + (2 * ) > 256 > 256 - (4 * - (3 * - (2 * g < 0 g + inc g < 0 + (2 * ) > 256 > 256 - (4 * - (3 * - (2 * b < 0 b + inc b < 0 cbox "r" & & "c" & ((( -1)*5)+col) tb - 18), ( tb - 15) setcolorszoom boxnum numf "rnum" & M<= 125 = 11 = 16 "gnum" & "r" & & "c" & col "bnum" & row 212,79.3125,71.6875 K 1,g1,b1) buttondown enterpage setoutline setcolorszoom enterpage RGBtoHLS stroke [1setAppColors setfsbutton buttonup setfsbutton buttondown outline stroke [1setAppColors HLStoRGB setoutline outline blocknum setcolorszoom setoutline RGBtoHLS blocknum boxnum 4newMenuCount chas xbeen created yet." submenu" & i 0,100,0 sysStrokecolor 0,0,0 "floppy" 3660, 3600 3660, 2550 3690, 2535 4710, 2535 4740, 2565 4740, 3585 4710, 3630 3675, 3630 "obj1" 3765,2610 4590,3135 0, 0, 0 "menuLister" "floppyLabel" Scripts" 4320,3195 4605,3630 "obj2" 3945,3195 4455,3630 "obj3" 4050,3270 4200,3555 "obj4" 4635,2625 4695,2685 0, 0, 0 "obj5" drawDirect Test "scriptHolder" textLinecount( subMenu" & i & ") scriptChk" "EditMode" nthe 555, 4110 buttonUp buttonUp A menu has not been created yet. A menu has not been created yet. hide field submenu floppy clear menuLister paste floppyLabel Menu Scripts menuLister floppyLabel group floppy scriptHolder put textLinecount(text of field subMenu ) into t put textLine x of text of field subMenu into scriptChk scriptHolder scriptHolder clear scriptHolder clear menuBar floppy EditMode floppy scriptHolder floppy menuList menuLister scriptChk x:to2 i:to1 newMenuCount TOOLBOX FOR TOOLBOOK Copyright(Work Process) Redmon Group FTool: ColorMetrix --Programming H: Jeffrey S. Howard --Designs H: John Veronica Cruz Daniel Lazenby --Last Modified Date : February 2, 1992 --NOTE: program which being made available Asymetrix evaluation -- purposes only. 4r, ret, zoom, fs, rgb, hls, fhls, shls, bhls, cont, appname 4bgcurr "fill" "192,192,192" "0,75.3125,0" "0,75.3125,0" "0,0,0" "0,100,0" #"spectrum.ico" "no such file" icon X"tbkwin.dll" RGBtoHLS( HLStoRGB( setAppColors 4atype, toolbook c"OK" newappname "(Untitled)" "No other Toolbook Open another f"OK" reqtext apply has changed. f"OK" "Cancel" "All" setAll "Background" setBackground "Selection" setSelection SetAll Z something " && ToolBook " && " && SetBackground " && SetSelection " && " && setfsbutton 4fs, "applyToWhat" -- B"stroke" 0,75.3125,0 -- B"bg" 0,75.3125,0 -- 0,100,0 "test" -- 0,75.3125,0 -- B"bg" 0,75.3125,0 -- 0,100,0 B"bg" -- 0,75.3125,0 -- 0,75.3125,0 -- B"bg" 0,100,0 setoutline eBackground setAppColors enterBackground SetAll SetBackground SetSelection leaveBackground setfsbutton enterBackground 192,192,192 0,75.3125,0 0,75.3125,0 0,0,0 0,100,0 tbkwin.dll RGBtoHLS HLStoRGB bgcurr appname leaveBackground tbkwin.dll setAppColors name of this book (Untitled) No other Toolbook application is open at this time. Open another Toolbook application to use this command. Toolbook application to apply has changed. The new application is Cancel setAll Background |EsetBackground Selection L&setSelection reqtext newappname toolbook atype appname SetAll selection No selection. Select something in another Toolbook application. set fillcolor of selection to ToolBook set strokecolor of selection to ToolBook set fillcolor of this background to ToolBook Toolbook SetBackground name of this book No application open. Open another Toolbook application. set fillcolor of this background to ToolBook Toolbook SetSelection selection No selection. Select something in another Toolbook application. set fillcolor of selection to ToolBook set strokecolor of selection to ToolBook Toolbook setfsbutton buttonDown applyToWhat stroke stroke HLStoRGB setoutline ColorMetrix1 F x !@!r! ":"l" #4#f# #.$`$ $(%Z% 7D8p9 M&MLMrM outline 4 Hi-Res Pure Colorss r1c10 r2c10 r3c10 r4c10 r5c10 r1c11 r2c11 r3c11 r4c11 r5c11 r1c12 r2c12 r3c12 r4c12 r5c12 r1c13 r2c13 r3c13 r4c13 r5c13 r1c14 r2c14 r3c14 r4c14 r5c14 r1c15 r2c15 r3c15 r4c15 r5c15 r1c16 r2c16 r3c16 r4c16 r5c16 r1c17 r2c17 r3c17 r4c17 r5c17 r1c18 r2c18 r3c18 r4c18 r5c18 r1c19 r2c19 r3c19 r4c19 r5c19 r1c20 r2c20 r3c20 r4c20 r5c20 r1c21 r2c21 r3c21 r4c21 r5c21 r1c22 r2c22 r3c22 r4c22 r5c22 r1c23 r2c23 r3c23 r4c23 r5c23 r1c24 r2c24 r3c24 r4c24 r5c24 r1c25 r2c25 r3c25 r4c25 r5c25 16 Pure VGA Colors 8514/A special colorslors gnum5 gnum3 gnum1 XGAA/A special colorslors bnum1 bnum2 bnum3 bnum4 bnum5 gnum2 gnum4 rnum1 rnum2 rnum3 rnum4 rnum5 Apply Colors 1) Select either the "Background", "Fill Color", or "Stroke Color" radio buttons. Click the left mouse button on a color from the matrix above. - Background will change the color of this background; - Fill Color will change the fillcolor of this field; - Stroke Color will change the strokecolor of this field to the nearest pure color. 2) Select a pure color from the boxes at the top of the screen. 3) Select a "Level of Shade" between 1 and 64 to change the values of the colors around the selected color. 4) To add the selected color to objects in an application: a) Open the target application; b) Select the target object; c) Return to Colormetrix; d) Select either "Fill Color" or "Stroke Color"; e) Click the "Apply Colors" button; f ) Choose "Continuously" to continuously vary the color of the selected object in the target application. The continuous application of colors must be cancelled before applying a color to a different object. g) Choose "Once" to change the color of the selected object one time. 5) To add the selected color to a background in an application: a) Open the target application; b) Go to a page using the target background; c) Return to Colormetrix; d) Select "Background"; e) Click the "Apply Colors" button; f ) Choose "Continuous" to continuously vary the color of the selected background in the target application. The continuous application of colors must be cancelled before applying a color to a different background. g) Choose "Once" to change the color of the selected background one time. 4bgcurr "colormetrix2" buttonUp buttonUp colormetrix2 bgcurr Color Bars Level Shadee Close Main Menu buttonUp buttonUp "Are you sure that want close Toolbox?" f"Yes" buttonUp buttonUp Are you sure that you want to close Toolbox? Instructions This utility allows quick and accurate access to any of the over 16 million available colors (actually, only just over 2 million colors are available in Toolbook). Windows 3.0 uses a RGB color format whereas ToolBook uses HLS. Colormetrix allows the developer to visually select an RGB color and convert it to HLS rather than guessing at ToolBook's numeric equivalent. Using the Level options, the user can adjust the amount of shade from 1 to 64 levels. The fillcolor and strokecolor of the Instruction field will change to the selected color. Depending upon whether the "Background", "Fill Color", or "Stroke Color" radio buttons are checked, the "Apply Colors" button will apply the selected color to the targetted selection or background within an application. The "Color Bars " allows the user to access the Colormetrix Color Bars. These Color Bars are used to directly convert between RGB and HLS. ApplyToWhat buttonDown buttonDown setfsbutton buttonUp buttonUp setfsbutton Background setfsbutton buttonUp buttonUp setfsbutton Fill Color stroke setfsbutton buttonUp buttonUp setfsbutton Stroke Color 0,0,0 buttonDown buttonDown 4zoom 240,50,100 <> 256 lbox "L" & 0,75.3125,0 "L" & 0,100,0 setcolorszoom setoutline buttonUp buttonUp issetcolorszoom setoutline 4zoom 240,50,100 lbox "L" & 0,75.3125,0 "L" & 0,100,0 setcolorszoom buttonUp buttonUp issetcolorszoom 4zoom 240,50,100 lbox "L" & 0,75.3125,0 "L" & 0,100,0 setcolorszoom buttonUp buttonUp issetcolorszoom 4zoom 240,50,100 lbox "L" & 0,75.3125,0 "L" & 0,100,0 setcolorszoom buttonUp buttonUp issetcolorszoom 4zoom 240,50,100 lbox "L" & 0,75.3125,0 "L" & 0,100,0 setcolorszoom buttonUp buttonUp issetcolorszoom 4zoom 240,50,100 lbox "L" & 0,75.3125,0 "L" & 0,100,0 setcolorszoom buttonUp buttonUp issetcolorszoom 4zoom 240,50,100 lbox "L" & 0,75.3125,0 "L" & 0,100,0 setcolorszoom buttonUp buttonUp issetcolorszoom ColorMetrix TOOLBOX FOR TOOLBOOK Redmon Group --Programming H: John Jeffrey S. Howard --Designs H: Veronica Cruz Daniel Lazenby --Last Modified Date : February 2, 1992 4menuVisit menuSetup colormetrixSetup c"File" c"Edit" c"Text" c"Page" c"Help" "&Open" "E&xit" c"&Tools" e"&About" "Animator" "Colormetrix" "Eat Clicks" "MenuMaker" "PageLook" "Ramp" "Timer" "WrapTextCounter" 0,100,0 "test" "colormetrix1" 0,100,0 0,0,0 animator pageLook Menumaker "menuMaker" wraptextcounter "wrapCounter" eatClicks timer "Are you sure that want Toolbox?" f"Yes" about /"Toolbox_menu" --Compacts books fSAVE As.. Command compact bookNames !) - 2 "bak" "tbkfile.dll" INT removeFile(STRING) unLinkDll "tbkFile. keyDown enterPage animator pageLook reader Menumaker leaveBook wraptextcounter menuSetup eatClicks colormetrixSetup colormetrix timer enterBook about compact enterBook sizeToPage reader menuSetup colormetrixSetup menuVisit leaveBook enterPage reader menuSetup &File &Open E&xit &Tools &About Tools Tools Animator Tools Colormetrix Tools Eat Clicks Tools MenuMaker Tools PageLook Tools Tools Timer Tools WrapTextCounter Tools colormetrixSetup Colormetrix colormetrix1 colormetrix1 keyDown author animator animator pageLook pageLook Menumaker menuMaker wraptextcounter wrapCounter eatClicks eatClicks colormetrix colormetrix1 timer timer Are you sure that you want to exit Toolbox? about buttonUp About Toolbox_menu compact tbkfile.dll removeFile removeFile tbkFile.dll bookNames 4cont, atype, appname toolbook c"OK" newappname "(Untitled)" "No other Toolbook Open another f"OK" reqtext apply has changed. f"OK" "Cancel" "Apply colors & "." f"Continue" "Stop" & "." f"Continuously" "Once" f"All" "Background" "Selection" setAppColors buttonUp buttonUp name of this book (Untitled) No other Toolbook application is open at this time. Open another Toolbook application to use this command. Toolbook application to apply has changed. The new application is Cancel Apply colors to Continue Apply colors to Continuously Cancel cancel Continuously Apply type? Background Selection [1setAppColors reqtext newappname toolbook atype appname ColorMetrix TOOLBOX FOR TOOLBOOK Redmon Group ,Tool: Timer --Programming H: Jeffrey S. Howard --Designs H: John Veronica Cruz Daniel Lazenby --Last Modified Date : February 2, 1992 4tflag1, tflag2, currtime Xuser GetTickCount() B"time1" "Start "timerstart1" "timerend1" "starttime1" "stoptime1" B"time2" "timerstart2" "timerend2" "starttime2" "stoptime2" J"instructions" J"about" t1, t2, gettime1 gettime2 4tstart1 4t1, newt t1 / 1000 %"#.000" 4tstart2 4t2, t2 / 1000 %"#.000" starttime1 leavepage gettime1 starttime2 enterpage gettime2 enterpage GetTickCount time1 Start Time timerstart1 timerend1 starttime1 stoptime1 time2 Start Time timerstart2 timerend2 starttime2 stoptime2 currtime instructions instructions about about tflag1 tflag2 currtime leavepage Egettime1 timerstart1 Egettime2 timerstart2 currtime tflag1 tflag2 currtime starttime1 GetTickCount tstart1 gettime1 GetTickCount #.000 tstart1 starttime2 GetTickCount tstart2 gettime2 GetTickCount #.000 tstart2 Colormetrix2 )$*J* *<+b+ ,@,f, .(0N0t0 0@1D4H7L: U.UTU U0VlV XvXBY [r\>] `Hbnb 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup rdown uttondown buttonstilldown buttondown buttonup buttondown rdown buttonstilldown rdown buttonup ApplyToWhat buttonDown buttonDown setfsbutton buttonUp buttonUp setfsbutton Background setfsbutton buttonUp buttonUp setfsbutton Fill Color stroke setfsbutton buttonUp buttonUp setfsbutton Stroke Color 4ret, bgcurr "Keep color?" f"Yes" "No" "Cancel" "colormetrix1" buttonUp buttonUp Keep color? Cancel Cancel colormetrix1 bgcurr Return 8514/A special colorslors XGAA/A special colorslors Slide the bars to change the color or click on the value boxes to change the color values.alues...m in on a color. Use the Reset button to restore the spectrum colors or to get a gray scale or shades of red, green, or blue....... Apply Colors ("Hue value?" isnum(n) cn < 0 n > 360 ("Invalid Select a zbetween 0 sethbar buttonUp buttonUp Hue value? isnum Invalid number. Select a number between 0 and 360. Hue value? isnum [7sethbar ("Lightness value?" isnum(n) cn < 0 n > 100 ("Invalid Select a zbetween 0 setlbar buttonUp buttonUp Lightness value? isnum Invalid number. Select a number between 0 and 100. Lightness value? isnum :setlbar 50.1875 ("Saturation value?" isnum(n) cn < 0 n > 100 ("Invalid Select a zbetween 0 setsbar buttonUp buttonUp Saturation value? isnum Invalid number. Select a number between 0 and 100. Saturation value? isnum @setsbar 100375502 r value g value b value ("Red value?" isnum(n) cn < 0 n > 256 ("Invalid Select a zbetween 0 setrbar buttonUp buttonUp Red value? isnum Invalid number. Select a number between 0 and 256. Red value? isnum ?setrbar ("Green value?" isnum(n) cn < 0 n > 256 ("Invalid Select a zbetween 0 setgbar buttonUp buttonUp Green value? isnum Invalid number. Select a number between 0 and 256. Green value? isnum 6setgbar ("Blue value?" isnum(n) cn < 0 n > 256 ("Invalid Select a zbetween 0 setbbar buttonUp buttonUp Blue value? isnum Invalid number. Select a number between 0 and 256. Blue value? isnum 2setbbar Close Main Menu buttonUp buttonUp Instructions The "Color Bars " allows the user to access the Colormetrix Color Bars. These Color Bars are used to directly convert between RGB and HLS. The HLS and RGB values can be modified by using the slider bars above or clicking on the numeric values in the boxes above. 4 Hi-Res Pure Colorss 16 Pure VGA Colors 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup sdown uttondown buttonstilldown buttondown buttonup buttondown sdown buttonstilldown sdown buttonup 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup bdown uttondown buttonstilldown buttondown buttonup buttondown bdown buttonstilldown bdown buttonup 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup gdown uttondown buttonstilldown buttondown buttonup buttondown gdown buttonstilldown gdown buttonup 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup uttondown buttonstilldown buttondown buttonup buttondown buttonstilldown buttonup 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup uttondown buttonstilldown buttondown buttonup buttondown buttonstilldown buttonup 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup uttondown buttonstilldown buttondown buttonup buttondown buttonstilldown buttonup 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup uttondown buttonstilldown buttondown buttonup buttondown buttonstilldown buttonup 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup uttondown buttonstilldown buttondown buttonup buttondown buttonstilldown buttonup 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup uttondown buttonstilldown buttondown buttonup buttondown buttonstilldown buttonup 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup 42Fa+ hdown uttondown buttonstilldown buttondown buttonup buttondown hdown buttonstilldown hdown buttonup ldown uttondown buttonstilldown buttondown buttonup buttondown ldown buttonstilldown ldown buttonup h value s value l value Green ColorMetrix "Are you sure that want Toolbox?" f"Yes" buttonUp buttonUp Are you sure that you want to exit Toolbox? 4cont, atype, appname toolbook c"OK" newappname "(Untitled)" "No other Toolbook Open another f"OK" reqtext apply has changed. f"OK" "Cancel" "Apply colors & "." f"Continue" "Stop" & "." f"Continuous" "Now" f"All" "Background" "Selection" setAppColors buttonUp buttonUp name of this book (Untitled) No other Toolbook application is open at this time. Open another Toolbook application to use this command. Toolbook application to apply has changed. The new application is Cancel Apply colors to Continue Apply colors to Continuous Cancel cancel Continuous Apply type? Background Selection [1setAppColors reqtext newappname toolbook atype appname busytext "Busy ignoring clicks..." "Status" C&& i "status" "Ignored" && eatclicks() && " -- Function: Eatclicks -- Purpose: Cancel pending keyboard mouse messages -- Parameters: None -- Returns: 0 positive sucessful OnOrOff Local wFlags, dwBytes, cnt, hMsg, LpMsg -- Link windows functions allocates a block memory only xdone already. 0 -- GlobalAlloc flags. 32 -- MSG data structure, froom spare. Linkdll "krnl386.exe" WORD , DWORD) POINTER GlobalLockPointer_ = 9GlobalUnlock( NGlobalFree( X PeekMsg_ = PeekMessage( = 0 -- Call the unwanted -- Mouse , 512, 521, 1) <> 0 -- Keyboard presses , 256, 264, 1) <> 0 -- Menu Accelerators , 111, 112, 1) <> 0 unLinkdll " buttonUp eatclicks buttonUp Busy ignoring clicks... Status status Ignored eatclicks clicks while busy. busytext eatclicks GlobalAlloc krnl386.exe GlobalAlloc GlobalLockPointer_ GlobalLock GlobalUnlock GlobalFree PeekMsg_ PeekMessage GlobalAlloc GlobalLockPointer_ GlobalFree PeekMsg_ PeekMsg_ PeekMsg_ GlobalUnlock GlobalFree krnl386.exe wFlags dwBytes LpMsg OnOrOff TOOLBOX_MENU PageLook TOOLBOX FOR TOOLBOOK Redmon Group ,Tool: MenuMaker --Programming H: John --Designs H: Jeffrey S. Howard Veronica Cruz Daniel Lazenby --Last Modified Date : February 2, 1992 acknowledges the Technical Support Staff --Asymetrix some contained --The file " .tbk" \BBS provided many --techniques employed. 4hMenu J"instructions" J"about" linkDLL user gGetMenu( gCreateMenu () DestroyMenu ( DeleteMenu ( gSetMenu ( gGetSubMenu ( GetMenuString ( GetMenuItemCount ( gGetWindowWord ( AppendMenu ( DrawMenuBar ( gGetParent ( translateWindowMessage 4273 WM_COMMAND 4279 WM_INITMENUPOPUP "Edit" 4 hWnd, msg, wParam 4hPopupMenu menuSetup _, lpLo, lpHi \,menustring v < 2000 menuString &), 0 ) " && 9&& " scriptholder" stripAmp val ~( "&", ) > 0 ) ~( "&", 4newMenuCount menuScript W) > 1 "Please enter only 1 menuscript 708,5512 976,5744 "scriptHolder" textLinecount( subMenu" & i & ") scriptChk" menuSelect submenu" & i c" & i fieldtarget fieldTarget " & i && " " & i && " (KeyShift) c" & i c" & z c" & ) <> c" & i " && " c" & z && " -- "menu1" leavePage WM_COMMAND WM_INITMENUPOPUP buttonDoubleClick menuSelect keyDown enterPage buttonUp stripAmp enterPage instructions instructions about about GetMenu CreateMenu DestroyMenu DeleteMenu SetMenu GetSubMenu GetMenuString GetMenuItemCount GetWindowWord AppendMenu DrawMenuBar GetParent WM_COMMAND WM_INITMENUPOPUP buttonDown hMenu WM_INITMENUPOPUP hPopupMenu wParam leavePage buttonUp restore menuSetup WM_COMMAND menuString menuString menuString GetMenuString menuString to field scriptholder hPopupMenu menustring wParam stripAmp buttonDoubleClick Please enter only 1 word for the menu name. menuscript menuscript scriptHolder put textLinecount(text of field subMenu ) into t put textLine x of text of field subMenu into scriptChk scriptHolder scriptHolder scriptHolder scriptChk x:to1 menuScript newMenuCount menuSelect field submenu field menu 0,100,0 60,50,100 field submenu fieldTarget submenu set activated of field SubMenu to false set activated of field SubMenu to true i:to1 fieldtarget newMenuCount keyDown KkeyDown field submenu field menu 0,100,0 field menu 60,50,100 field menu 60,50,100 field submenu field menu 0,100,0 field menu into y 60,50,100 menu1 menu1 60,50,100 menu1 menu1 i:to1 newMenuCount buttonUp hide field submenu newMenuCount TOOLBOX FOR TOOLBOOK Redmon Group ,Tool: ColorMetrix --Programming H: Jeffrey S. Howard --Designs H: John Veronica Cruz Daniel Lazenby --Last Modified Date : February 2, 1992 4x1, x2, x3, inc, hinc, linc, ctype (x2 - x1) / 256 (x3 - x1) / 360 (x3 - x1) / 100 "test" "colormetrix1" setfsbutton sethlscolors , x1, r, g, b, h, l, s ((x - x1) / inc) setrbar ((x - x1) / setgbar ((x - x1) / setbbar ((x - x1) / sethbar ((x - x1) / setlbar ((x - x1) / setsbar setrgbbars sethlsbars , x1, x2, x3, r, g, b, h, l, s x < x1 x > x2 x > x3 ((x - x1) / ((x - x1) / ((x - x1) / ((x - x1) / ((x - x1) / ((x - x1) / , rgb, r, g, b r & "," & g & "," & b , x1, r, g, b, inc x1 + (r * barsize "r value" setrgbcolors "rnum" , x1, r, g, b, x1 + (g * "gnum" , x1, r, g, b, inc x1 + (b * "bnum" , x1, h, l, s, x1 + (h * "hnum" , x1, h, l, s, x1 + (l * "lnum" , x1, h, l, s, x1 + (s * "snum" 4x1, r, g, b, h, l, s HLStoRGB(h,l,s) x1 + (r * x1 + (g * x1 + (b * 4x1, h, l, s, r, g, b RGBtoHLS(r,g,b) x1 + (h * x1 + (l * x1 + (s * r < 256 rdown r > 0 g < 256 gdown g > 0 b < 256 bdown b > 0 h < 360 h > 360 hdown h > 0 h < 0 l < 100 H.0625 l > 100 ldown l > 0 H.0625 l < 0 s < 100 H.0625 s > 100 sdown s > 0 H.0625 s < 0 isNum fString vTemp --store --turn off so no error messages --initialize [ --try a numeric operation on the } -- y -- 4fs, r, g, b, cont, shls, fhls, bhls g, b) "fill" "stroke" setAppColors 4fs, h, l, s, h & "," & l & "," & s h,l,s h,l,s h,l,s setoutline r, g, b, h, l, s setrgbbars sethlsbars buttonDown setrbar rdown setgbar gdown enterpage bdown setbbar buttonstilldown hdown ldown sethbar setlbar sdown setsbar setrgbcolors sethlscolors buttonUp setoutline isNum enterpage colormetrix1 colormetrix1 setfsbutton 6sethlscolors ctype buttonDown ?setrbar 6setgbar 2setbbar [7sethbar :setlbar @setsbar setrgbbars sethlsbars 6sethlscolors ctype buttonstilldown ?setrbar 6setgbar 2setbbar [7sethbar :setlbar @setsbar ctype buttonUp ctype setrbar r value r value S,setrgbcolors sethlsbars barsize ctype setgbar g value g value S,setrgbcolors sethlsbars barsize ctype setbbar b value b value S,setrgbcolors sethlsbars barsize ctype sethbar h value h value 6sethlscolors setrgbbars barsize ctype setlbar l value l value 6sethlscolors setrgbbars barsize ctype setsbar s value s value 6sethlscolors setrgbbars barsize ctype setrgbbars HLStoRGB r value r value g value g value b value b value barsize sethlsbars RGBtoHLS h value h value l value l value s value s value barsize ?setrbar ctype rdown ?setrbar ctype 6setgbar ctype gdown 6setgbar ctype 2setbbar ctype bdown 2setbbar ctype [7sethbar ctype hdown [7sethbar ctype :setlbar ctype ldown :setlbar ctype @setsbar ctype sdown @setsbar ctype isNum vTemp fString setrgbcolors RGBtoHLS stroke [1setAppColors sethlscolors stroke [1setAppColors setoutline RGBtoHLS setrgbbars sethlsbars 4newMenuCount "Are you sure that want create a f"Yes" ("How many L-level would rlike d(Min=3,Max=6)?" "Please enter a zbetween 3 "This demonstration limited menus. H requires )least 3 choose a --drawing initial main 189,1584 1401,1872 "Menu1" 72, 0, 0 fieldType singleLineWrap MenuSelect; H1212,0 " & i submenus 192,1872 3828,3840 "SubMenu1" 144, 0, 0 H1212,0 P" & i "menu1" buttonUp buttonUp Are you sure that you want to create a new menu? How many top-level menu items would you like to create (Min=3,Max=6)? Please enter a number between 3 and 6. buttonUp restore This demonstration is limited to 6 top-level menus. Please try again. This demonstration requires at least 3 top-level menus. Please try again. Please choose a number between 3 and 6. Menu1 to handle buttonUp;send MenuSelect;end paste SubMenu1 paste SubMenu menu1 menu1 menu1 60,50,100 newMenuCount TOOLBOX FOR TOOLBOOK Redmon Group ,Tool: Animator --Programming H: Jeffrey S. Howard John --Designs H: Veronica Cruz Daniel Lazenby --Last Modified Date : February 2, 1992 4flag, travel sysDrawDirect J"instructions" J"about" syslineStyle , mpos newpos & "," & & "," & , obj, startbnds xoff yoff moves ci <= newx newy "Please 210,50,100 300,50.1875,50.375 180,37.625,100 ePage enterPage buttonDown buttonStillDown leavePage buttonUp enterPage clear instructions instructions about about travel leavePage buttonDown newpos travel buttonStillDown newpos travel buttonUp object clear enterPage object 1 60,50,100 object 2 60,50,100 object 3 60,50,100 Please select an object. object 1 object 2 object 3 enterPage moves startbnds travel TOOLBOX FOR TOOLBOOK fD|D| System System ?gD|D| sans serif ?gD|D| System ?gD|D| QopAsnEsp System ?gD|D| System ?gD|D| sans serif @ p sans serif sans serif sans serif @ sans serif sans serif sans serif sans serif p sans serif sans serif sans serif sans serif sans serif sans serif sans serif sans serif sans serif sans serif UgD|D| enterPage reader hideMenu printerSetup printPages printReport import export saveAs &Toolbox Help Animator Toolbox Help Colormetrix Toolbox Help Menu Generator Toolbox Help PageLook Toolbox Help Ramper Toolbox Help Timer Toolbox Help Win Ini Toolbox Help WrapTextCounter Toolbox Help keyDown author TOOLBOX_MENU About --Move linkDLL statement handler "tbkdlg.dll" dialog( setValue( getValue( init dlgInit --The I function used the initial value box control. ) returns 8modified initialization there was error. ) requires three parameters: A reference whose should be changed (e.g. " Name" "listbox Files") ,"","") occurred." --A displayed Hcalling similar --that describes final values each user defined property box. retValue dlgBox retreive a specified returned retreived , "") buttonUp buttonUp tbkdlg.dll dialog setValue getValue dlgInit dlgBox dialog retValue dlgBox 524480,3,30,20,159,114,,,About TOOLBOX for TOOLBOOK,8,Helv,,20.53,10.67,121.33,76.39,15,1342177281,130,REDMON GROUP 4201 South 31st Street,0,,46.67,81.03,69.07,16.08,17,1342242816,128,OK,0,,11.20,4.64,18.29,19.69,24,1342177283,130,comment,0 dlgInit ,s15,REDMON GROUP 4201 South 31st Street, Suite 929 Arlington, Virginia 22206 (703) 845-9266 Proprietary Information Copyright (Work in Process) ,b17,FALSE ,h24, ctrlID About Button 4menuVisit "ToolBox ToolBook home grown utilities developed"&&\ copyrighted Hthe Redmon Group. It being made available"&&\ %freeware assist developers "&&\ "development. This released basis."&&\ "You may include these portions applications you developing, providing "identify Asymetrix( cases MenuMaker EatClicks) source scripts "use. share, )no cost, copies f"&&\ "other enterPage enterPage ToolBox for ToolBook is a set of home grown utilities developed and copyrighted by the Redmon Group. It is being made available as freeware to assist ToolBook developers with application development. This application is released in an as is basis. You may include these utilities, or portions of these utilities, in applications you are developing, providing you identify the Redmon Group or Asymetrix(in the cases of MenuMaker and EatClicks) as the source of any scripts you may use. You may share, at no cost, copies of these utilities with other developers. menuVisit ">"($h(h( buttonUP about buttonUP buttonUP about "eatClicks" buttonUp buttonUp eatClicks "Are you sure want close Toolbox Toolbook?" f"Yes" "yes" buttonUp buttonUp Are you sure you want to close Toolbox for Toolbook? buttonUp buttonUp animator buttonUp buttonUp ianimator colormetrix buttonUp buttonUp colormetrix timer buttonUp buttonUp timer pageLook buttonUp buttonUp apageLook wrapTextCounter buttonUp buttonUp wrapTextCounter "menuMaker" buttonUp buttonUp menuMaker "eatClicks" buttonUp buttonUp eatClicks EATCLICKS "Are you sure want close Toolbox Toolbook?" f"Yes" "yes" buttonUp buttonUp Are you sure you want to close Toolbox for Toolbook? Close timer buttonUp buttonUp timer Timer pageLook buttonUp buttonUp apageLook PageLook wrapTextCounter buttonUp buttonUp wrapTextCounter Counter TEXT LINE about buttonUp buttonUp about About "menuMaker" buttonUp buttonUp menuMaker MenuMakerrratorrr colormetrix buttonUp buttonUp colormetrix ColorMetrixx buttonUp buttonUp animator buttonUp buttonUp ianimator Animator (:PHYSSIZE Close Main Menu buttonUp buttonUp "Are you sure that want Toolbox?" f"Yes" buttonUp buttonUp Are you sure that you want to exit Toolbox? About scrolled false Instructions scrolled " :PHYSSIZE Animator Using a record function, Animator lets you select an object and then use the mouse to trace out the path an object is to follow. Animator records the path that is drawn and the speed at which the path is drawn. This utility automates the ToolBook Recorder by allowing the developer to record Mouse movements instead of Mouse clicks. This utility also illustrates the exact path that was recorded. 1) Click RECORD to begin. 2) Click one of the three objects on the right of the screen. 3) Hold down the left Mouse Button and draw a path on the screen. object 2 4choice buttonDown buttonDown choice object 1 4Choice buttonDown buttonDown Choice object 3 4choice buttonDown buttonDown choice ButtonUp 4flag ButtonUp ButtonUp RECORD Animator PageLook PageLook is used to examine or modify the properties and scripts of objects on a page. With PageLook, you can access individual objects, individual objects within a group, as well as groups of individual objects nested several levels into another group without ungrouping. Pressing the PageLook button produces a list box containing every object on a page's foreground. Much like structured programming, indentation is used to illustrate the nested relationship between objects and groups of nested objects. In this example, objects in the group "Greece" are nested three levels into the group "Europe". What makes this utility so valuable is that it quickly draws itself on the page. The script that is contained in this page can be pasted into the developer's application. The developer can then create a button or menu item to call the PageLook script.ould only require the script contained in this page's script.. 1) Click the "European Tour" button at the bottom of the screen. 2) Select an object from the scrollable field to the left. 3) Click the "Properties" button to display the properties for the selected object. Click the "Return" button to return to the list of objects. 4) Click the "Script" button to view and/or edit the object's script. 5) Click the "Close" button to close PageLook.. Globe buttonUp buttonUp Europe Luxembourg buttonUp buttonUp EasternEurope buttonUp buttonUp Poland buttonUp buttonUp Czechoslavakia buttonUp buttonUp Hungary buttonUp buttonUp buttonUp buttonUp modTarg false Belgium buttonUp buttonUp modTarg New Belgium buttonUp buttonUp Corsica buttonUp buttonUp Sardinia buttonUp buttonUp Sicily buttonUp buttonUp Balkans buttonUp buttonUp Yugoslavia buttonUp buttonUp Albania buttonUp buttonUp Rumania buttonUp buttonUp Bulgaria buttonUp buttonUp Greece buttonUp buttonUp GreeceMainland buttonUp buttonUp Crete buttonUp buttonUp buttonUp buttonUp Scandinavia buttonUp buttonUp Norway buttonUp buttonUp Finland buttonUp buttonUp Sweden buttonUp buttonUp Denmark buttonUp buttonUp NoName buttonUp buttonUp buttonUp buttonUp `,7$L WesternEurope buttonUp buttonUp Iceland buttonUp buttonUp Netherlands buttonUp buttonUp Switzerland buttonUp buttonUp France buttonUp buttonUp Spain buttonUp buttonUp Portugal buttonUp buttonUp Italy buttonUp buttonUp H6L!w buttonUp buttonUp GreatBritain buttonUp buttonUp N.Ireland buttonUp buttonUp Irleand buttonUp buttonUp Germany buttonUp buttonUp pageLook pageLook buttonUp buttonUp apageLook European Tour buttonUp buttonUp buttonUp buttonUp PageLook buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp buttonUp Timer 8n8n8n8k Timer was developed to monitor and verify the speed at which scripts execute in thousandths of seconds. By incorporating these timers into scripts a developer is better able to identify areas in the code that can be tightened. It is also useful for comparing the execution time of different coding techniques.ing techniques of coding. 1) Click either of the "Start Timer" buttons below. 2) Click the "Stop Timer" button to stop the timer. time1 4t1, tflag1 "timerstart1" "timerend1" B"time1" "Stop Timer #1" "starttime1" "stoptime1" gettime1 t1 & " tsec Q(t1) tfracs t1 - %"#.000" thrs :/3600) * 3600) tmin e/60) * 60) Y& ":" & 8& ":" & "Start buttonUp rightbuttonup buttonUp timerstart1 timerend1 time1 Stop Timer #1 starttime1 stoptime1 starttime1 Egettime1 stoptime1 timerstart1 seconds #.000 timerend1 time1 Start Timer #1 tfracs tflag1 rightbuttonup label Start Time Start Time time2 4t2, tflag2 "timerstart2" "timerend2" B"time2" "Stop Timer #2" "starttime2" "stoptime2" gettime2 t2 & " tsec Q(t2) tfracs t2 - %"#.000" thrs :/3600) * 3600) tmin e/60) * 60) Y& ":" & 8& ":" & "Start buttonUp rightbuttonup buttonUp timerstart2 timerend2 time2 Stop Timer #2 starttime2 stoptime2 starttime2 Egettime2 stoptime2 timerstart2 seconds #.000 timerend2 time2 Start Timer #2 tfracs tflag2 rightbuttonup label Start Time Start Time Start time Stop timee Seconds timerstart1 timerend1 startTime1 StopTime1 Hrs : Mins : Secsssssssss Start time Stop timee Seconds Hrs : Mins : Secsssssssss timerstart2 timerend2 startTime2 StopTime2 Timer currtime 1:22:41 PMM Eatclicks TOOLBOX FOR TOOLBOOK Redmon Group ,Tool: EatClicks --Original Programming H: Claude Osteen Asymetrix --Modified Jeffrey S. Howard --Designs H: John Veronica Cruz Daniel Lazenby --Last Date : October 22, 1992 acknowledges the Technical Support Staff some contained --The original eatClicks developed --was modified work fWindows 3.1 "This only works 386-Enhanced Mode. most "status" "status2" enterPage enterPage This EatClicks only works in 386-Enhanced Mode. Redmon Group acknowledges the Technical Support Staff at Asymetrix for most of the script contained in EatClicks. The original eatClicks developed by Claude Ostyn was modified to work with Windows 3.1. status status2 This EatClicks code disables buttons after a user has selected one. This is a constant problem in ToolBook. This code has been written to support both Windows 3.1 and Windows 3.0 with Multimedia Extensions. 1) Click the Eat Clicks Button below; 2) Continuously click the Test Button below; 3) The status field will display how many clicks were ignored. Eat Clicks Direct Test button. Click while ignoring and see if it moves. status status2 MenuMaker 4F?hDhDhDhDhDhDhDhDhDhDhDhDhDhDhD The MenuMaker provides a means of visually laying out top-level menu items, sub-items of a top-level menu, and cascading-sub-items of a top-level menu item. Sub-items and cascading-sub-items are automatically placed into their own drop-down menu box. Using the MenuMaker, you can define menu commands, pop-up menus, and separators, and you can move, copy, or delete any part of the menu. The MenuMaker also allows you to immmediately test your menus. Your menu is displayed at the top of this development window when you press the "View Menu" button. Clicking on the "Save Menu" button produces a floppy disk icon which contains the necessary scripts and handlers for the menus. This icon is then pasted into the developer's application. To incorporate the new menu, the developer follows the directions included in the script of the floppy disk icon ....... 1) Click the "Create" button and enter the desired number of top-level menu items. 2) Enter the top-level menu name at the cursor. Use the TAB key to enter the remaining top-level menu names. 3) To enter menu items, select the "SubMenus" radio button and click on the desired top-level menu name. 4) Enter a menu item name at the cursor and press the ENTER key. Repeat this process for each additional menu item. 5) Place an "&" before the letter you wish to have underlined. 6) Leaving a blank line creates a separator bar. 7) Pressing the TAB key before a menu item name creates a first level cascading menu. Pressing the TAB key twice creates a second level cascading menu, etc. 8) You may add script handlers to the menu items by selecting the "Scripts" radio button and double-clicking on the desired menu item. 9) Click the "View Menu" button to display the menu you constructed. 10) Click the "Save Menu" to save the menu you constructed. 11) A Floppy Disk icon containing the menu scripts will appear on the screen. Paste this icon into your application to move the necessary menu scripts. Follow the directions included in the script of the floppy disk icon to incorporate the new menu...... the developer e developer menubar MenuBar \ Button Button editmode --Script Handlers buttonDown buttonDown 4newMenuCount c" & i && " c" & i c" & i && " SubMenu" & i && " subMenu" & i fieldType noWrap" buttonUp buttonUp put field menu into z 60,50,100 field menu 0,100,0 set activated of field menu to false set activated of field SubMenu to false hide field subMenu set fieldType of field SubMenu to noWrap newMenuCount Menus Scripts 4newMenuCount c" & i && " SubMenu" & i && " fieldType singleSelect" buttonUp buttonUp set activated of field menu to true set activated of field SubMenu to true set fieldType of field SubMenu to singleSelect newMenuCount Scripts Submenu 4newMenuCount c" & i && " submenu" & i && " c" & i && " SubMenu" & i && " fieldType noWrap" buttonUp buttonUp put field menu into z 60,50,100 put field submenu into x set activated of field menu to true set activated of field SubMenu to false set fieldType of field SubMenu to noWrap newMenuCount SubMenus menulist Create Create Restore 4newMenuCount "menuList" submenu" & i c" & i c" & i "floppy" buttonUp buttonUp menuList show field submenu clear field submenu show field menu clear field menu floppy buttonDown newMenuCount Restore Save Menu View Menu MenuMaker MenuBar \ |&` { Button Button MenuBar \ H,o | p,` m Button Button MenuBar \ Button Button scriptholder search character search to handle char send character to handle search request "Hi" enddddd WrapCounter TOOLBOX FOR TOOLBOOK Redmon Group ,Tool: WrapCounter --Programming H: Jeffrey S. Howard --Designs H: John Veronica Cruz Daniel Lazenby --Last Modified Date : February 2, 1992 starttime Xuser GetTickCount() stoptime newt (t / 10) t / 100 %"#.00" J"instructions" J"about" arttime stoptime starttime enterPage starttime GetTickCount GetTickCount stoptime GetTickCount enterPage instructions instructions about about /(0P0 This utility produces a real textline count rather than the number of text lines ending with a <CR> carriage return. ToolBook recognizes a line of text when it encounters a <CR>. In a narrow field that one line of text could wrap several times and still be considered one line of text. We have incorporated three of the many techniques one can use to count real textlines. This utility can be used to automatically resize a field to fit the actual lines of text. 1) Click on one of the "Method" buttons below to display the ToolBook textline count and the real number of textlines in the field. 2) Use the author mode to resize the width of the sample text field. This will change the number of displayed textlines. Click on one of the "Method" buttons to see how the count changes. counter TEXT LINE time1 1.54 secondsss time2 1.70 secondss 4t, s "tlc" "tld" "counter" "test" starttime countlines1 stoptime "time1" t & " done tonUp countlines1 buttonUp rightbuttonup buttonUp counter counter counter starttime countlines1 stoptime time1 seconds countlines1 counter counter counter counter rightbuttonup Method 1 "tlc" "tld" "counter" "test") starttime countlines2 stoptime "time2" t & " bsave bnew (+ 300) done tonUp countlines2 buttonUp rightbuttonup buttonUp counter counter counter starttime countlines2 stoptime time2 seconds countlines2 bsave rightbuttonup Method 2 "tlc" "tld" "counter" "test") starttime countlines3 stoptime "time3" t & " done tpos A(p) tonUp countlines3 buttonUp rightbuttonup buttonUp counter starttime countlines3 stoptime time3 seconds countlines3 textfrompoint rightbuttonup Method 3 Method time3 3.74 secondss ToolBook's Textline Count Real Number of Textlines PRINTERS Basic Concepts Printers differ in their abilities to use fonts, graphics, spacing, alignment, and character formats. The appearance of your printed document can vary greatly from printer to printer. The way your document looks depends on which formats you assign and which formats your printer can print. Printer Drivers Word uses printer drivers as the link between Word and your printer. Printer drivers are included with Windows and have a .DRV filename extension. A printer driver contains important information that Windows needs to know about your printer, such as details about printer hardware configuration and the printing interface, descriptions of fonts, definitions of character widths, and control sequences used by the printer to achieve various formats. If Windows has a printer driver for your printer, you probably installed it when you ran the Windows Setup program. If you want to add an additional printer driver once you've installed Windows, you can use the Control Panel to install it. After you install your printers, you must also configure each one before you can print with Word. See your Windows documentation for more information. If Windows does not have a printer driver for your printer, you may still be able to print documents with Word, but your printer may not be able to take advantage of every Word formatting option. What You See Word provides several ways for you to look at your document before you print it. To see indents, tabs, and line breaks as they will appear when printed, choose the Options command from the Tools menu, select the View category, and then select the Line Breaks And Fonts As Printed check box. To see a page as it will appear when printed, including headers, footers, footnotes, and graphics, choose the Page Layout command from the View menu. To see one or two full pages as they will appear when printed, choose the Print Preview command from the File menu. For more information about how to view your document before you print, see Chapter 24, "Viewing Documents," in the Microsoft Word User's Guide. Choose the Draft command from the View menu for the fastest document scrolling speed. You will see only the Word 10-point system font on the screen. Character formats such as bold and italic appear as underlining, and graphics and other elements are not displayed. About Printers This section explains terms and concepts that are discussed later in this file; it does not give details about your particular printer. It describes the parts of the printer interface-the way a computer and printer exchange information-that are important when you use Word. You need to know whether your printer uses a parallel interface, a serial interface, or can use either one. Terminology can be confusing. "Parallel" and "Centronics" are the same type of interface. If your printer uses a parallel interface, it sends multiple bits of information to the printer simultaneously. "Serial," "asynchronous," and "RS232" all refer to the same type of interface. If your printer uses a serial interface, it sends single bits of information to the printer, one at a time. Ports LPT1, LPT2, LPT3, COM1, and COM2 are input/output ports. The computer uses them to connect with printers and other devices. * You connect a parallel printer to LPT1, LPT2, or LPT3. These are parallel printer ports. * You connect a serial printer to COM1 or COM2. These are serial communications ports. Cables All parallel cables are the same. Serial cables usually differ from one another; they are often made for a particular printer. Use the cable that came with your printer or purchase one from your printer dealer. If you are not sure what kind of cable your printer requires, ask your printer dealer or check your printer manual. Printer Configuration Switches Many printers have a set of configuration (DIP) switches. Generally, Word expects these switches to be set in the factory default settings. If a printer is an exception to this rule, it is noted in the printer driver's Help file. Many printers have switches for doing automatic line feeds when receiving a carriage return. These switches should be set to carriage returns only, which is normally the factory default setting. Some printers have switches or control panels that enable you to set the printer for different modes, such as draft, letter quality, or compressed text. Do not use these controls with Word. If you do use them, you may cause your document to be printed incorrectly. Word almost always expects a printer to be in draft mode, printing 10 characters per inch. Exceptions to this rule are noted in the Help files for individual printer drivers. If you have a serial printer, you need to set the correct port, baud rate, word length, parity, handshake, and stop bits. If the baud rate or parity is incorrect, the printer may not print or the output may be garbled. In the Control Panel, use the Ports command on the Settings menu to set these parameters. Handshake If you have a serial printer, make sure you are using the right handshake, or protocol. The handshake is the hardware and software settings that allow your computer to communicate with a connected printer or other device. If the handshake is not correct, the printer may print, but it will lose text. Check your printer manual for the correct settings. Preparing to Print The more you know about your printer, the less trouble you're likely to have printing. For example, differences in how paper is fed to the printer can cause variations in the top and bottom margins. For information about your printer, read your printer manual thoroughly. There are three steps in preparing to print: * Connect the printer to the computer. * Install the printer driver. * Configure the printer. These steps are explained in the following sections. Connecting a Printer * Make sure you have the correct cable for your printer, especially if you are using a serial printer. * Connect your printer to your computer and configure the printer s switches and mode settings according to the printer manufacturer s instructions. * If your printer is connected to a serial port, and you have already installed Word, use the Ports command on the Settings menu in the Control Panel to set the port, baud rate, word length, parity, stop bits, and handshake for your printer. * Try printing something in Word: 1 Open a file or type a few lines of text. 2 From the File menu, choose Print (ALT, F, P). 3 Choose the OK button. If your printer does not print properly, make sure that the cables are connected correctly and that the printer is in online mode. Check your communications settings if you have a serial printer. If the printer still fails to print, repeat the connection instructions in your printer documentation or contact your printer manufacturer. For more information on printing problems, see your Windows documentation. Installing a Printer Driver Installing printer drivers is a function of the Windows operating system. The procedures for installing additional printers differ if you are connected to a local area network (LAN), or if you're using a standalone machine. If you are connected to a LAN, installing printers may be a task for the system administrator. If you are not connected to a LAN, use the Control Panel to install a printer driver. For more information, see your Windows documentation. Configuring a Printer After your printer is installed, you must set the printer s connections and select the options you want to use as defaults. You can change to any other installed printer by using the Print Setup command on the File menu in Word. See "Changing Printers," later in this file. To configure printers, choose Printers from the Settings menu in the Windows Control Panel, and then choose the Configure button. For more information about configuring printers, see your Windows documentation. WrapCount MenuMaker Eatclicks ColorMetrix color 180,50,100 TOOLBOX FOR TOOLBOOK Redmon Group --Programming H: John Jeffrey S. Howard --Designs H: Veronica Cruz Daniel Lazenby --Last Modified Date : February 2, 1992 4menuVisit menuSetup colormetrixSetup c"File" c"Edit" c"Text" c"Page" c"Help" "&Open" "E&xit" c"&Tools" e"&About" "Animator" "Colormetrix" "Eat Clicks" "MenuMaker" "PageLook" "Ramp" "Timer" "WrapTextCounter" 0,100,0 "test" "colormetrix1" 0,100,0 0,0,0 animator pageLook Menumaker "menuMaker" wraptextcounter "wrapCounter" eatClicks timer "Are you sure that want Toolbox?" f"Yes" about /"Toolbox_menu" terBook keyDown enterPage animator pageLook reader Menumaker leaveBook wraptextcounter menuSetup eatClicks colormetrixSetup colormetrix timer enterBook about enterBook sizeToPage reader menuSetup colormetrixSetup menuVisit leaveBook enterPage reader menuSetup &File &Open E&xit &Tools &About Tools Tools Animator Tools Colormetrix Tools Eat Clicks Tools MenuMaker Tools PageLook Tools Tools Timer Tools WrapTextCounter Tools colormetrixSetup Colormetrix colormetrix1 colormetrix1 keyDown author animator animator pageLook pageLook Menumaker menuMaker wraptextcounter wrapCounter eatClicks eatClicks colormetrix colormetrix1 timer timer Are you sure that you want to exit Toolbox? about buttonUp About Toolbox_menu